home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / IDCMP.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  622 b   |  19 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=rxi_GetWindow('idcmp',,,,300,100,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5.  
  6. /* Here's our IDCMP loop. We just print all returned specs until we get */
  7. /* CLOSEWINDOW class (0). Start out CLASS = 1 before we get into the loop. */
  8. class = 1
  9. DO WHILE class > 0
  10. spec=rxi_WaitMsg(wind)
  11. /* divide the spec into separate parts */
  12. PARSE var spec class part1 part2 part3
  13. SAY spec
  14. END
  15.  
  16. /* Close the window, thus freeing any resources for it. */
  17. /* Note that if no window opened, this does nothing. Reassign return to wind */
  18. wind=rxi_EndWindow(wind)
  19.